home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
text
/
xes.lha
/
XES
/
REXX
/
SaveWords.xdme
< prev
next >
Wrap
Text File
|
1995-08-24
|
921b
|
41 lines
/* $VER: SaveWords.xdme 1.1 (24 Aug 1995) */
/* Saves words to user dictionaries */
udict = strip(getenv("UDict"))
udict.low = word(udict, 1)
udict.mix = word(udict, 2)
IF RIGHT(udict.low, 4) = ".mix" THEN DO
buf = udict.low
udict.low = udict.mix
udict.mix = udict.low
END
CALL Open(outlow,"T:low","W")
CALL Open(outmix,"T:mix","W")
OPTIONS RESULTS
i = 0
DO FOREVER
v = "$(List2/#" || i || "/*Name*)"
com = "rxresult" v
com
r = RESULT
IF r = v THEN LEAVE
/* Lowercase letters have bit 5 set. Uppercase don't. */
IF BITTST(LEFT(r,1), 5) THEN
CALL writeln outlow, r
ELSE
CALL writeln outmix, r
i = i + 1
END
CALL CLOSE outmix
CALL CLOSE outlow
com = "AlphaSpell -Lco" udict.low udict.low "T:Low"
SAY com
ADDRESS COMMAND com
com = "AlphaSpell -Lco" udict.mix udict.mix "T:Mix"
SAY com
ADDRESS COMMAND com
/* CALL DELETE "T:Mix" */
/* CALL DELETE "T:Low" */